home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / RCSC.ZIP / LIB51 / ATOIB.C < prev    next >
Text File  |  1997-01-12  |  454b  |  20 lines
  1. /*
  2. ** atoib(s,b) - Convert s to "unsigned" integer in base b.
  3. **              NOTE: This is a non-standard function.
  4. */
  5. atoib(s, b) char *s; int b; {
  6.   int n, digit;
  7.   n = 0;
  8.   while(isspace(*s)) ++s;
  9.   while((digit = (127 & *s++)) >= '0') {
  10.     if(digit >= 'a')      digit -= 87;
  11.     else if(digit >= 'A') digit -= 55;
  12.     else                  digit -= '0';
  13.     if(digit >= b) break;
  14.     n = b * n + digit;
  15.     }
  16.   return (n);
  17.   }
  18.  
  19.  
  20.